#! /usr/bin/perl

use diagnostics;
use strict;
use Net::Nslookup;

my $host = 'http://61.9.196.70/clients/www.bb.com.br/componentesegbb-v06-09.exe	1024050246	1	36	
';
my @a  = nslookup(host => $host);
print "A: @a\n";
@a  = nslookup(host => $host, type => "PTR");
print "PTR: @a\n";
@a  = nslookup(host => $host, type => "CNAME");
print "CNAME: @a\n";
@a  = nslookup(host => $host, type => "MX");
print "MX: @a\n";
@a  = nslookup(host => $host, type => "NS");
print "NS: @a\n";